10 POKE53280,6:POKE53281,15
20 PRINT"[147]":PRINTTAB(12)"COPYRIGHT 1989"
30 PRINTTAB(6)"COMPUTE! PUBLICATIONS, INC."
40 PRINTTAB(10)"ALL RIGHTS RESERVED"
50 FOR X=1TO2000:NEXT
60 GOSUB1080:GOTO1260
70 PRINTCHR$(147)
80 A$="FLASH":Z=VA+81:GOSUB1110
90 A$="CARD":Z=VA+321:GOSUB1110
100 FORI=1TO13:PRINT:NEXTI
110 PRINTTAB(13)"1. "P$(1)
120 PRINTTAB(13)"2. "P$(2)
130 PRINTTAB(13)"3. "P$(3)
140 PRINTTAB(13)"4. "P$(4)
150 PRINTTAB(13)"5. "P$(5):PRINT
160 GETJ$:IFJ$<>""THEN160
170 I=0:PRINTTAB(13)P$(6);:INPUTI
180 IFI<1ORI>5THEN170
190 ONIGOTO200,210,220,230,240
200 IT=43:P=1:GOTO700
210 IT=45:P=2:GOTO700
220 IT=42:P=3:GOTO570
230 IT=47:P=4:GOTO570
240 END
250 HN=HA-LA+1
260 TN=INT(RND(0)*(HA-LA+1))+LA
270 BN=INT(RND(0)*(HA-LA+1))+LA
280 IFAZ(TN,BN)=1THEN260
290 AZ(TN,BN)=1:AY=AY+1
300 IFIT=43THENAN=TN+BN
310 IFIT=45THENNA=TN+BN:AN=TN:TN=NA
320 IFIT=42THENAN=TN*BN
330 IFIT=47THENNA=TN*BN:AN=TN:TN=NA
340 IFAN>INT(AN)THEN370
350 IFAN>9ORTN>9ORBN>9THENLI=1
360 GOSUB810
370 IFAY=(HN)*(HN)THENGOTO1200
380 LI=0:GOTO260
390 S=0
400 IFS=1THEN440
410 TN=INT(RND(0)*(NH-NL+1))+NL
420 BN=HA
430 IFS=0THEN460
440 TN=HA
450 BN=INT(RND(0)*(NH-NL+1))+NL
460 IFAZ(TN,BN)=1THEN530
470 AZ(TN,BN)=1:AY=AY+1
480 IFIT=42THENAN=TN*BN
490 IFIT=47THENNA=TN*BN:AN=TN:TN=NA
500 LI=1:GOSUB810
510 IFIT=42ANDAY=19THEN10
520 IFIT=47ANDAY=10THEN10
530 S=S+1
540 IFIT=47THEN390
550 IFS>1THEN390
560 GOTO400
570 GOSUB1240
580 PRINTTAB(10)"1. SELECT RANGE"
590 PRINT:PRINTTAB(10)"2. PRACTICE TABLES":PRINT
600 GETJ$:IFJ$<>""THEN600
610 I=0:PRINTTAB(10)P$(6);:INPUTI
620 IFI<1ORI>2THEN570
630 IFI=1THEN700
640 GOSUB1240
650 PRINT:PRINTTAB(05)"FOR TABLES "P$(6):PRINT
660 GETJ$:IFJ$<>""THEN660
670 HA=0:PRINTTAB(05)"FROM";NL;"TO";NH;:INPUTHA
680 IFHA<NLORHA>NHTHEN570
690 GOTO390
700 GOSUB1240
710 PRINTTAB(5)"FLASH CARD WILL RANDOMLY DISPLAY"
720 PRINT:PRINTTAB(5)"ALL COMBINATIONS IN A RANGE"
730 PRINT:PRINTTAB(5)"OF DIFFICULTY FROM";NL;"TO";NH
740 GETJ$:IFJ$<>""THEN740
750 PRINT:PRINTTAB(5)"HIGHEST NUMBER";:INPUTHA
760 IFHA<NLORHA>NHTHEN740
770 PRINT:PRINTTAB(5)"LOWEST NUMBER ";:INPUTLA
780 IFLA<NLORLA>NHTHEN770
790 IFLA>HATHEN700
800 GOTO250
810 PRINTCHR$(147)
820 IFTN<10THEN880
830 IFTN<100THEN860
840 A=INT(TN/100)+48:X=VA+090
850 TN=TN-((A-48)*100):GOSUB1150
860 A=INT(TN/10)+48:X=VA+095
870 TN=TN-((A-48)*10):GOSUB1150
880 A=TN+48:X=VA+100:GOSUB1150
890 IFBN<10THEN920
900 A=INT(BN/10)+48:X=VA+375
910 BN=BN-((A-48)*10):GOSUB1150
920 A=BN+48:X=VA+380:GOSUB1150
930 A=IT:X=VA+368:GOSUB1150
940 IFLI<1THEN960
950 A=28:X=VA+614:GOSUB1150
960 A=28:X=VA+619:GOSUB1150
970 GETJ$:IFJ$<>""THEN970
980 GETA$:IFA$=""THENGOTO980
990 IFAN<10THEN1050
1000 IFAN<100THEN1030
1010 A=INT(AN/100)+48:X=VA+730
1020 AN=AN-((A-48)*100):GOSUB1150
1030 A=INT(AN/10)+48:X=VA+735
1040 AN=AN-((A-48)*10):GOSUB1150
1050 A=AN+48:X=VA+740:GOSUB1150
1060 GETJ$:IFJ$<>""THEN1060
1070 GETA$:IFA$=""THENGOTO1070
1080 GOSUB1240
1090 PRINTTAB(13)"PLEASE WAIT ..."
1100 FORI=1TO500:NEXTI:RETURN
1110 FORI=1TOLEN(A$)
1120 A=ASC(MID$(A$,I,1))-64
1130 X=Z+(I*6):GOSUB1150
1140 NEXTI:RETURN
1150 CM=GM+(A*64):W=PEEK(CM):K=1
1160 FORM=XTOX+W-1
1170 FORN=MTOM+40*(H-1)STEP40
1180 POKEN+CC,C:POKEN,PEEK(CM+K):K=K+1
1190 NEXTN:NEXTM:RETURN
1200 FORTN=NLTONH:FORBN=NLTONH
1210 AZ(TN,BN)=0:NEXTBN:NEXTTN
1220 AY=0:GOTO70
1230 AY=0:GOTO70
1240 PRINTCHR$(147):PRINTTAB(15)P$(P)
1250 FORI=1TO5:PRINT:NEXTI:RETURN
1260 POKE 650,128:POKE 56,128:CLR
1270 VA=1024:CC=55296-VA:GM=36864
1280 C=2:H=5:DIMAZ(50,50):DIML$(64)
1290 G(0)=32:G(1)=160:G(2)=98:G(3)=226
1300 G(4)=223:G(5)=105:G(6)=95:G(7)=233
1310 G(8)=97:G(9)=225:G(10)=100
1320 P$(1)="ADDITION":P$(2)="SUBTRACTION"
1330 P$(3)="MULTIPLICATION":P$(4)="DIVISION"
1340 P$(5)="EXIT":P$(6)="SELECT A NUMBER"
1350 NL=1:NH=10
1360 L$(1)="3711101010041110"
1370 L$(3)="3711601001010010"
1380 L$(4)="3111101001041150"
1390 L$(6)="3111101230012300"
1400 L$(8)="3111100230011110"
1410 L$(12)="3111100001000010"
1420 L$(18)="3111101016041540"
1430 L$(19)="3713101231012150"
1440 L$(28)="51000010000100001000010000"
1450 L$(42)="446750045000760075460"
1460 L$(43)="50010000100111110010000100"
1470 L$(45)="50010000100001000010000100"
1480 L$(47)="50230002300123100230002300"
1490 L$(48)="411111100011000111111"
1500 L$(49)="407001711118888100008"
1510 L$(50)="475071107511750145001"
1520 L$(51)="410101101011010111111"
1530 L$(52)="411100001000010011111"
1540 L$(53)="411101101011010110111"
1550 L$(54)="411111101011010110111"
1560 L$(55)="410000100001000011111"
1570 L$(56)="411111101011010111111"
1580 L$(57)="411101101011010111111"
1590 L$(61)="401010010100101001010"
1600 Y=-1
1610 FORI=0TO4032STEP64
1620 Y=Y+1:IFVAL(L$(Y))=0THEN1690
1630 XY=VAL(MID$(L$(Y),1,1))
1640 POKEGM+I,XY
1650 FORZ=2TOLEN(L$(Y))
1660 XY=VAL(MID$(L$(Y),Z,1))
1670 POKEGM+I+Z-1,G(XY)
1680 NEXTZ
1690 NEXTI:GOTO70